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Lazarus لازاروسد‎ 


هى بيئة تطويرية متكاملة. متعددة المنصات. حرة ومجانية. مفتوحة المصدر. تستخدم مترجم فري 
باسكال الذي يدعم أوبجكت باسكال. وان سألك أحدهم بم تطور برامجك قل له: أستخدم لغة فري 


باسكال - بيئة لازاروس. 


Free Pascal 


Lazarus 


Project 


يمكن لمطوري سطح المكتب استخدام فري باسكال - بيئة لازاروس لتطوير تطبيقات تعمل على عدة 
أنظمة تشغيل مثل وندوز ولينوكس وماك. 


elis‏ البرمجة في فري باسكال - بيئة لازاروس هي ملفات تنفيذية طبيعية Native‏ بأحجام صغيرة 
نسبياً. سريعة التنفيذ. خفيفة على الذاكرة. 

تشبه بيئة لازاروس إلى حد كبير بيئة دلفي لتطوير التطبیقات. حيث توفر مجموعة كبيرة من الأدوات 
والعناصر المساعدة على برمجة التطبيقات بسهولة بالغة. 

توفر بيئة لازاروس عناصر تساعد على إنشاء واجهة المستخدم بحيث ما تراه هو ما تحصل عليه 
ومحرر للکود. والتنسیق. ومتتبع الأخطاء وإدارة المشاريع. 


كما توفر إمكانية الاتصال والتعامل مع مختلف أنواع قواعد البيانات Postgresqlg MySql Jie‏ 


Oraclesg FireBirdg Sglite39‏ وغيرها. 


العمل على هذه البيئة سهل giang‏ ولا يحتاج منك الا الالمام بأساسيات لغة فري باسکال. التي لها 


مستندات ومجتمع زاخر بالمعلومات. 
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من الأمور الممتعة في فري باسكال - بيئة لازاروس. أنه يمكنك برمجة مشروع تطبيق على وندوز 
lia‏ وتنتج به برنامجاً يعمل على أي جهاز به نظام وندوز بمجرد نسخ الملف التنفيذي (وبعض 
الملفات الضرورية للعمل مثل ملف قاعدة البيانات أو ملفات التقارير) وتشغيله دون أية مشاكل تذكر. 


كما يمكنك نسخ الكود البرمجي للمشروع ونقله إلى aaia‏ أخرى Jia‏ لينوكس أوبونتو. وعمل 
Compile‏ فينتج تطبيقاً يعمل على لينوكس دون تغيير حقيقي في الكود! هذا هو معنى الشعار 


-Write once, Compile Anywhere 


لتنزيل نسختك من cdi]‏ ادخل موقع البيئة : www.]lazarus-ide.org‏ 


وللمزيد من المعلومات عن لغة فري باسکال» يمكنك مطالعة الموقع الخاص بها: 
www.freepascal.org‏ 
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الباب الأول 


أساسيات لقة فرك 


باسكال 


ی سكل یل 


Variables المتضیر ات‎ - Uoi 


المتغيرات هي عبارة عن أوعية تحمل مختلف أنواع البيانات. ويجب تعريف المتغيرات في البرنامج قبل 


استخدامها. ولتسمية متغی يجب التأكد من أن الاسم يخضع لشروط تسمية المتغير وهى: 


e‏ أن يبدأ بحرف إنجليزي. 

e‏ یمکن أن يحتوي على أرقام. 

-Underscore یمکن أن يحتوي على الشرطة التحتية‎ o 

-! © # 5 965 يمكن أن يحتوي على إحدى العلامات الخاصة مثل (' : " : [] (! - - ' + () * ي8‎ Y e 


\|/.,?><. 
تعريف المتظغيرات 


يتم تعريف المتغيرات في البرنامج بناء على مدى صلاحية هذه المتغیرات فهناك متغيرات على 
مستوى الإجراء Procedure‏ أو الدالة Function‏ وهناك متغيرات على مستوى الوحدة Unit‏ الحالية 
Private Variables‏ وهناك متغيرات على مستوی المشروع Project‏ وتسمی Public Variables‏ 
ويمكن التعامل معها من أي مكان ضمن المشروع الحالي. 


لتعريف المتغيرات ضمن الإجراءات أو الدوال قبل كلمة Begin‏ نكتب: 


van 
۷211, Var2, Var3 : Data Type; 


حيث ۷2۵۲3 ,۷2۲2 ,۷2۲1 هي أسماء المتغيرات. و Data Type‏ هو نوع البيانات التی ستحملها هذه 
المتغیرات. 


ولتعریف المتغیرات على مستوی الوحدة. نذهب إلى أعلى الکود الخاص بالوحدق وتحت كلمة Private‏ 
نعرف المتغیرات ودون استعمال كلمة Var‏ بالصورة التالیة: 
private‏ 


Marl; Bata Type; 
Var2: Data Type; 


Lol‏ لتعريف المتغيرات على مستوى المشروع. فنذهب تحت الكلمة Public‏ ونعرفها بالصورة التالية: 


public 
Vari: Data Type; 
Var2: Data Type; 
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نسي ندع سكل یل 


أنواع البيانات في فريك باسكال - بيتة لاز ار وس 


بشكل آساسي. توجد خمس أنواع للبيانات في فري باسكال - بيئة لازاروس. وهي: 


Integer o‏ للقيم الصحيحة. 

Real e‏ للقيم الكسرية التي تحتوي على فاصلة عشرية. 
:Boolean e‏ للقيم المنطقية .Falses True‏ 

:Char e‏ للقيم النصية التي تمثل حرفاً واحداً. 

String e‏ للقيم التي تمثل سلاسل نصية. 


1. الأعداد الصحيحة Integers‏ 


تنقسم الأعداد الصحيحة فى فري باسكال - بيئة لازاروس إلى أنواع فرعية بناء على حجم هذه الأعداد 


بالصورة التالية: 
integer types‏ 

Type Range Bytes 
Byte 0 .. 255 1 
Shortint -128 .. 7 1 
Smallint -32768 .. 32767 2 
Word 05965535 2 

Integer smallint or longint 20r4 
Cardinal longword 4 
Longint -2147483648 .. 2147483647 4 
Longword 0..4294967295 4 
Int64 -9223372036854775808 .. 9223372036854775807 8 
QWord 0 .. 18446744073709551615 8 
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یی تن یل 


2 الأعداد الكسرية Real‏ 


تنقسم الأعداد الكسرية في فري باسکال - بيئة لازاروس إلى آنواع فرعية elis‏ على حجم هذه الأعداد 


بالصورة التالیة: 
real types‏ 

Type Range Significant digits Bytes 
Real platform dependent RRP 4 or 8 
Single 1.5E-45 .. 3.4E38 7-8 4 
Double 5.0E-324 .. 1.7E308 15-16 8 
Extended  1.9E-4932 .. 1.1E4932 19-20 10 
Comp -2E644-1 .. 2863-1 19-20 8 


Currency -922337203685477.5808 922337203685477.5807 8 


3. القیم المنطقية Boolean‏ 
وتنقسم القيم المنطقية أيضاً إلى أنواع فرعية وهي: 


boolean types 
Type Bytes Ord(True) 
Boolean 1 1 
ByteBool 1 Any nonzero value 
WordBool 2 Any nonzero value 
4 


LongBool Any nonzero value 


aliai 


Var 

ItemDescription: String; 
USES MEE SE E 
CostPrice: Double; 
۳1 ۲۲ LAG: Boolean 
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نسي ندع سكل یل 


Reserved Words الكلمات المحجوزة‎ 


وهي كلمات لا يمكن أن تسمى بها المتغيرات لأنها محجوزة من قبل اللغة ولها وظائفها الخاصة مثل: 
Turbo Pascal reserved words .1‏ 


الكلمات المحجوزة من قبل توربو باسكال: 


absolute and array asm begin break case const 
constructor continue destructor div do downto else end 

file for function goto if implementation in inherited 
inline interface label mod nil not object of 

on operator or packed procedure program record reintroduce 
repeat self set shl shr string then to 

type unit until uses var while with xor 


Delphi reserved words .2 


والكلمات المحجوزة من قبل دلفي إضافة إلى ما سبق هي: 


as class except exports finalization finally initialization 


is library on property raise threadvar try 


Free Pascal reserved words .3 


والكلمات المحجوزة من قبل فري باسكال إضافة إلى ما سبق هي: 


dispose exit false new true 


وكذلك: 
abs arctan boolean char cos dispose eof eoln‏ 
exp false input integer In maxint new 0‏ 
ord output pack page pred read readin real‏ 
reset rewrite round sin sqr sqrt succ text‏ 


true trunc write writeln 
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تعيين قيم المتقیر ات Assignment‏ 


بعد أن تم تعریف المتغی يمكن تعیین قيمة له تکون من نفس نوعه. الصورة العامة لتعیین قیم 


المتغیرات هی: 
وم 5-3352 variable Name‏ 
أمثلة: 
Var‏ 
ItemDescription : String;‏ 
TotalPrice, CostPrice, Taxes : Double;‏ 


9 اه‎ B ACES 


۲ 61۱۱۳6 تن ارس‎ s MINES 
TotalPrice :< CostPrice * Quantity; 
Taxes :< TotalPrice * 0.025; 


Arithmetic Operators المعاملات الرياضية‎ 


وهى العمليات التى يمكن إجراؤها على الأرقام سواء كانت صحيحة أو كسرية. 


المعامل وصف العملية نوع المتغيرات النتيجة 

+ إعملية جمع صحيحة و/أو كسرية | صحيحة و/أو كسرية 

- إعملية طرح صحيحة و/أو كسرية | صحيحة و/أو كسرية 

 *‏ |عملية ضرب صحيحة و/أو كسرية | صحيحة و/أو كسرية 
/ عملية قسمة صحيحة و/آو كسرية | كسرية 
Div‏ — | عملية قسمة بناتج صحيح صحيحة صحيحة 
Mod‏ المتبقی من القسمة صحيحة صحيحة 
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نسي قدي سكل یل 


Constants الثوابت‎ - GUO 


الثوابت على معرفات بقيم ثابتق لا تتغير في البرنامج. وعند تسميتها وتعريفهاء ينطبق عليها کل ما 
ينطبق على تسمية المتغيرات. 


تعريف الثوابت في البرنامج 


يتم تعريف الثوابت بالصورة التالية: 


const 
Identifierl : Data Type; 
Identifier2 : Data Type; 
Identifier3 : Data Type; 


ويمكن تعيين القيم لهذه الثوابت من خلال التعريف نفسه بالصورة التالية: 


const 
Identifierl : Data Type Value; 
Identifier2 : Data Type - Value; 


Identifier3 : Data Type - Value; 
أمثلة:‎ 
CSRS E 
اس‎ : Real = 314; 
tore Name 3 Sering = US Sexe" 


وكما نلاحظ. فعند تعيين القيم أثناء التعريف Y‏ نستخدم (-:) بل نستخدم )=( فقط. 
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نسي ندع سكل یل 


ثالثا- التعابير المنطقية Boolean Expressions‏ 


تستخدم التعابير المنطقية عند مقارنة قيمتين أو ST‏ بحيث يكون الناتج هو قيمة منطقية True‏ أو 


6 ومعاملات التعابير المنطقية الأساسية هى: 


المعامل المعنى 
< يعطي True‏ إذا كانت القيمة الأولى أصغر من القيمة الثانية وإلا سيعطي False‏ 
> يعطي True‏ إذا كانت القيمة الأولى أكبر من القيمة الثانية وإلا سيعطي False‏ 
- يعطي True‏ إذا كانت القيمة الأولى تساوي القيمة الثانية وإلا سيعطي False‏ 
=< يعطي True‏ إذا كانت القيمة الأولى أصغر من أو تساوي القيمة الثانية وإلا سيعطي False‏ 
=> يعطي True‏ إذا كانت القيمة الأولى أكبر من أو تساوي القيمة الثانية وإلا سيعطي False‏ 
<> يعطي True‏ إذا كانت القيمة الأولى لا تساوي القيمة الثانية وإلا سيعطي False‏ 


وهناك معاملات أكثر تعقيداً من المعاملات الأساسية وهى: 


المعامل المعنى 
۶ | عكس النتيجة المعطاة 
And‏ تعطي True‏ في حال كانت النتيجة True‏ « وإلا ستعطي „False‏ 
0 تعطي True‏ إذا كانت إحدى النتائج True‏ وإلا ستعطي False‏ 
Xor‏ تعطي True‏ إذا اختلفت النتائج والا ستعطي False‏ 


NONE 
Not (True) = False 
Not (False) = True 
AND: 


True AND True = True 
True AND False = False 


OR: 

True OR True = True 
True OR False < True 
False OR True - True 
False OR False = False 


XOR: 

True XOR True - False 
True XOR False True 
False XOR True True 
False XOR False - False 
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نسي قدي سكل یل 


رابصاً - اتخاذ القرارات Decision Making‏ 


If - Then statement الجملة‎ .1 


If condition 
is true 
عندما نريد تنفيذ كود ما‎ [f- Then نستخدم جملة‎ 


If condition 
is false 


نتيجة لتحقق شرط معين. 


conditional code 


الشكل العام لجملة ۲6۳0 -]: 


If (condition) then 
Statement; 


وبذلك, سيتم تنفيذ ال Statement‏ فقط إذا تحقق ال «Condition‏ وإلا ainu‏ تجاهل ال Statement‏ 
وتنفيذ الكود الذي يليها. 


وفی alla‏ كان الكود الذي نريد تنفيذه عند تحقق الشرط طويلاً (أكثر من جملة واحدة)ء نستخدم 
الصيغة التالية: 


If (Condition) then 
Begin 
Statementl; 
Statement2; 
Statement3; 


Statement (n); 
End; 
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نسي قدي سكل یل 


If — Then - Else statement الجملة‎ .2 


هي نفسها جملة If-Then‏ مضافاً إليها خيار Else‏ 


If condition 
is true 


نستخدم جملة [f-Then-Else‏ عندما 53 a3‏ تنفيذ 
كود ما نتيجة لعدم تحقق الشرط. 


If condition 
is false 


else code 


الشكل العام لجملة if-Then-Else‏ 


If (condition) then 
Statementl 
Else 
Statement2; 


وبذلك» سيتم تنفيذ ال Statement2‏ فقط إذا لم يتحقق ال -Condition‏ 


لاحظ أن ال Statement1‏ التي تسبق (Else)‏ لا تتبعها فاصلة منقوطة G)‏ وهي قاعدة يجب الانتباه 
إليها دائماً: (أي جملة تسبق Else‏ لا تُتبع بفاصلة منقوطة). 


وبالطبع. إن كان الكود المطلوب تنفيذه في حالة عدم تحقق الشرط طويلاً (أكثر من جملة واحدق)؛ 
نستخدم الصورة التالية: 


If (condition) then 


Statementl 
Else 
Begin 
Statementl; 
Statement2; 


Statement (n); 
End; 
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سین یل 


Nested If Statement &Lo» 3 


من المتاح تشابك جمل If‏ في البرنامج في لغة فري باسكال» والذي يعني استعمال If-Else Joa‏ داخل 
جمل If-Else‏ أخرى. 


نستخدم جمل If‏ المتداخلة عدما نرید تنفیذ كود ما اعتماداً على صحة أو خطأ شرط معین. 


الشکل العام لجملة if‏ المتداخلة: 


وبذلكك سیتم تنفیذ ال 51216006011 فقط إذا تحقق الشرط الأول 600011001 (و) تحقق الشرط 


.Condition2 الثاني‎ 


ويمكن أن يكون التشبيك في الجزء Else‏ بالصورة التالية: 
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سین یل 


Case Statement جملة‎ .4 


L1 
13 
m, 


وهي صورة أخرى للجملة df‏ ونستخدمها عند 


الشكل العام لجملة :Case Statement‏ 


حيث : L1, L2‏ هي القيمة الناتجة عن الشرط. و52 ,51 هي الجمل التي يتم تنفيذها في كل حالة. 


مثال: 
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سین یل 


Case-Else Statement جملة‎ .5 


ونستخدمها فى alla‏ کون نتيجة الشرط مختلفة 
عن القیم المتوقعة (فى حالة صحة الشرط). 


الشکل العام لجملة :Case-Else Statement‏ 


حیث : L1, L2‏ هي القيمة الناتجة عن الشرط. و52 ,51 هي الجمل التي يتم تنفیذها في كل alla‏ آما 
Sm‏ فهی الجملة التی تنفذ فى ما عدا ذلك. 


مثال: 
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سین یل 


خامس) - جمل التكرار Loop‏ 


فى بعض الأحيان نحتاج إلى تنفیذ aac‏ من الجمل عدة مرات حتی تحقق da jii‏ معین. وعند تحقق 
الشرط اللازم للتوقف نستأنف تنفیذ الجمل والعبارات التی تلیها. توفر لغة فري باسکال العدید من 


جمل التکرار آهمها: 


While-do Loop حلقة التكرار‎ .1 


while (condition) do S; 


condition 


If condition 
is true 


ونستخدمها لتنفيذ جملة أو مجموعة من الجمل 
طالما تحقق الشرط. 


If condition 
is false 


الشكل العام: 


while (condition) do Statement1; 


وطالما كان الشرط متحققاً (أي (True‏ . ولا بد من توفر جملة تقطع التکران والا فإنه سيستمر في 
التكرار إلى مالا نهاية. 


مثال: 


program whileLoop; 
var 
a: integer; 


began 
a = ۶ 
while a > 20 do 


begin 


writeln('value of a: ', a); 
a csat i; 


لاحظ الجملة (:1 + و =: (a‏ فهي المسوولة عن التسبب في توقف التكرار. 
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For-Do Loop حلقة التكرار‎ .2 


for «variable? := 
> init» to [down to] «final» do 
5 


condition 
مجموعة من‎ gl ونستخدمها لتكرار نفيذ جملة‎ 


If condition j "m 
تنازليا.‎ gl الجمل فى مدى معين تصاعديا‎ 


is true 


conditional 
code 


If condition 
is false 


increment 


الشكل العام: 


tor <varielble- REME > s= <initial value> to سا‎ tol <timal value> و‎ 
SF 


ومن خلال الشكل العام سيكون هناك صيغتين: 


for «variable-name» 
Sm 


«initial value» to «final value» do 


for «variable-name» :- «initial value» down to «final value» do 
Sp 


مثال: 


program 7 
var 
a: integer; 


begin 
fora ge» di0 ie 20 clo 
begin 
writeln('value of a: ', a); 
end; 
end. 
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Zo 
النتيجة ستكون:‎ 

value of a: 10 

value of a: 11 

value of a: 12 

value of a: 13 

value of a: 14 

value of a: 15 

value of a: 16 

value of a: 17 

value of a: 18 

value of a: 19 

value of a: 20 


أو بالصورة الثانية 


والنتيجة ستكون: 
value of a: 20‏ 
value of a: 19‏ 
value of a: 18‏ 
value of a: 17‏ 
value of a: 16‏ 
value of a: 15‏ 
value of a: 14‏ 
value of a: 13‏ 
value of a: 12‏ 
value of a: 11‏ 
value of a: 10‏ 
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سین یل 


Repeat-Until Loop حلقة التكرار‎ 3 


ونستخدمها لتکرار تنفيذ جملة أو مجموعة من 
الجمل حتی یتحقق شرط التوقف. 


الشکل العام: 


والنتيجة هي: 
value of a: 0‏ 
value of a: 11‏ 
value of a: 12‏ 
value of a: 13‏ 
value of a: 14‏ 
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